home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / DMTDEMOS / FDRVS.DEM < prev    next >
Text File  |  1994-07-02  |  205b  |  13 lines

  1. program FDrvsSample;
  2.  
  3.  uses crt, DMT;
  4.  
  5. begin
  6.   Color( 7, 0 );
  7.   clrscr;
  8.  
  9.   writeln( #13#10, 'Number of physical floppy drives installed : ', FDrvs );  { Call FDrvs function }
  10.  
  11.   GetEnter;
  12. end.
  13.